﻿Public Class RxTpoInmueble

    Public Shared Function rptGerenciales_xTpoInmueble(ByVal descEmpresa As String, ByVal DisplaySelect As Boolean, ByVal rptGerencial As EproformaCabecera) As List(Of ExTpoInmueble)
        Dim xTpoInmueble As List(Of ExTpoInmueble) = Nothing

        Dim options As New TransactionOptions
        options.IsolationLevel = Transactions.IsolationLevel.ReadCommitted
        options.Timeout = New TimeSpan(0, 2, 0)

        Using scope As New TransactionScope(TransactionScopeOption.Required, options)
            Try
                xTpoInmueble = DxTpoInmueble.rptGerenciales_xTpoInmueble(descEmpresa, rptGerencial)
                If xTpoInmueble Is Nothing Then xTpoInmueble = New List(Of ExTpoInmueble)
                'If DisplaySelect Then accions.Insert(0, New xOperaciones("00", "-- SELECIONAR --"))
                scope.Complete()
            Catch ex As Exception
                Throw
            End Try
        End Using

        Return xTpoInmueble
    End Function

End Class
